home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swags_z.zip / STRINGS.SWG / 0032_Determine empty string.pas < prev    next >
Pascal/Delphi Source File  |  1993-09-26  |  829b  |  28 lines
  1. {*****************************************************************************
  2.  * Function ...... Empty()
  3.  * Purpose ....... To determine if a string is empty
  4.  * Parameters .... s          String to check
  5.  * Returns ....... TRUE if <s> is 0 bytes in length, or is filled with #0 or
  6.  *                 spaces.
  7.  * Notes ......... None
  8.  * Author ........ Martin Richardson
  9.  * Date .......... May 13, 1992
  10.  *****************************************************************************}
  11. FUNCTION Empty( s: STRING ): BOOLEAN; ASSEMBLER;
  12. ASM
  13.        CLD
  14.        XOR   CH, CH
  15.        LES   DI, s
  16.        MOV   CL, BYTE PTR ES:[DI]
  17.        JCXZ  @@1
  18.        INC   DI
  19.        MOV   AL, ' '
  20.        REPE  SCASB
  21.        JZ    @@1          { empty }
  22.        MOV   AL, False
  23.        JMP   @@2
  24. @@1:   MOV   AL, True
  25. @@2:
  26. END;
  27.  
  28.